[求救]asp发邮件总是发给自己问题

来源：百度知道 编辑：UC知道 时间：2024/06/01 19:48:18
以下是整个过程，为什么邮件总是发给发件者邮箱呢？
解决之后再追加100分！！ 在线等

function re_pass(member,email)
on error resume next
set db=server.createobject("adodb.connection")
db.connectionstring= odbc
db.open
dim dbstring,rs
if len(member)>0 and len(email)>0 then
dbstring="select count(*) as temp from members where flag=0 and member_name='"&member&"' and r_email='"&email&"'"
set rs=db.execute(dbstring)
if rs("temp")=0 then
err_code=4007
exit function
end if

dbstring="select * from members where flag=0 and member_name='"&member&"' and r_email='"&email&"'"
set rs=db.execute(dbstring)
if not db.errors.count=0 then
err_code=4006
exit function
end if

dim userpwd
dim mymember_id
my_member_id = rs("member_id")
userpwd=makepass(8)

dbstring="selec

这是教程

<%
inputMailTo = Trim(Request.Form("inputMailTo"))
inputMailFrom = Trim(Request.Form("inputMailFrom"))
inputMailSubject = Trim(Request.Form("inputMailSubject"))
textBoxMailBody = Trim(Request.Form("textBoxMailBody"))

dim ErrMsgInputMailTo,ErrMsgInputMailFrom,ErrMsgInputMailSubject,ErrMsgTextBoxMailBody,MsgSendResult

sendMail

sub sendMail()
if inputMailTo = "" then
ErrMsgInputMailTo = "不能为空"
exit sub
end if
if ValidateEmail(inputMailTo) = false then
ErrMsgInputMailTo = "E-Mail Address Error"
exit sub
end if
if inputMailFrom = "" then
ErrMsgInputMailFrom = "不能为空"
exit sub
end if
if ValidateEmail(inputMailFrom) = false then
ErrMsgInputMailFrom = "E-Mail Address Error"
exit sub
end if
if inputMailSubject = "" then
ErrMs